home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #11 / CD 11 (Black) - 2001.iso / Fruity / STRINGTG.DXR / 00005_tools & animation.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  2.4 KB  |  85 lines
  1. on getLocs fs, ls
  2.   set locList to []
  3.   repeat with i = fs to ls
  4.     add(locList, the loc of sprite i)
  5.   end repeat
  6.   return locList
  7. end
  8.  
  9. on Shuffle startList
  10.   set shuffleList to []
  11.   set copyList to value(string(startList))
  12.   set listSize to count(startList)
  13.   repeat with z = 1 to listSize
  14.     set index to random(count(copyList))
  15.     add(shuffleList, getAt(copyList, index))
  16.     deleteAt(copyList, index)
  17.   end repeat
  18.   return shuffleList
  19. end
  20.  
  21. on openReg
  22.   openWindow("reg", "regMovie", rect(100, 100, 324, 240), 4, 1, EMPTY, 0, 0)
  23. end
  24.  
  25. on openWindow wName, wFileName, wRect, wType, wVis, wTitle, wModal, wTitleVis
  26.   if objectp(window wName) then
  27.     forget(window wName)
  28.   end if
  29.   set the rect of window wName to wRect
  30.   set the fileName of window wName to wFileName
  31.   set the title of window wName to wTitle
  32.   set the titleVisible of window wName to wTitleVis
  33.   set the windowType of window wName to wType
  34.   set the visible of window wName to wVis
  35.   set the modal of window wName to wModal
  36.   open(window wName)
  37. end
  38.  
  39. on setRegPoint fC, lC, rP
  40.   repeat with i = fC to lC
  41.     set the regPoint of cast i to rP
  42.   end repeat
  43. end
  44.  
  45. on BatchRegDown fC, lC
  46.   repeat with i = fC to lC
  47.     set thePoint to the regPoint of cast i
  48.     set the regPoint of cast i to thePoint + point(0, 150)
  49.   end repeat
  50. end
  51.  
  52. on ReReg spriteNum, fNumSt, fNumEnd
  53.   set cnt to fNumEnd - fNumSt
  54.   go(fNumSt)
  55.   updateStage()
  56.   set fCst to the memberNum of sprite spriteNum
  57.   set iReg to the regPoint of cast fCst
  58.   set iPos to the loc of sprite spriteNum
  59.   repeat with i = 1 to cnt
  60.     go(fNumSt + i)
  61.     updateStage()
  62.     set curCast to the memberNum of sprite spriteNum
  63.     set diff to iPos - the loc of sprite spriteNum
  64.     set the regPoint of cast curCast to the regPoint of cast curCast + diff
  65.   end repeat
  66. end
  67.  
  68. on regRidWords startCst, stopCst, offsetV
  69.   repeat with CstNum = startCst to stopCst
  70.     set origPoint to the regPoint of member CstNum of castLib 5
  71.     set newH to the locH of origPoint
  72.     set newV to the locV of origPoint + offsetV
  73.     set the regPoint of member CstNum of castLib 5 to point(newH, newV)
  74.   end repeat
  75. end
  76.  
  77. on regRidWordsH startCst, stopCst, offsetH
  78.   repeat with CstNum = startCst to stopCst
  79.     set origPoint to the regPoint of member CstNum of castLib 5
  80.     set newH to the locH of origPoint + offsetH
  81.     set newV to the locV of origPoint
  82.     set the regPoint of member CstNum of castLib 5 to point(newH, newV)
  83.   end repeat
  84. end
  85.